Для подсветки и выделени в блок for end, if end, while end редактировать
function TSynDPasSyn.CreateFoldConfigInstance
function TSynDPasSyn.GetFoldConfigInstance(Index: Integer): TSynCustomFoldConfig;

